-- Start of DDL Script for Package PEMEX.PKG_SOLICITUD_SEGUIMIENTO
-- Generated 13/02/2012 18:54:53 from PEMEX@ORCL

CREATE OR REPLACE 
PACKAGE pkg_solicitud_seguimiento
  IS
 procedure insertSolicitudSeguimiento(
            penviar_email       IN VARCHAR2, 
            pcomentarios        IN VARCHAR2,
            pcve_solicitud      IN VARCHAR2           
        );
  procedure obtenerComentarios(
        pcve_solicitud IN VARCHAR, resultado out sys_refcursor
        );
  PROCEDURE  eliminarSolicitudSeguimiento(
               pcve_solicitud              IN VARCHAR2
             , pcve_solicitud_seguimiento  IN VARCHAR2 
        );
END;
/


CREATE OR REPLACE 
PACKAGE BODY pkg_solicitud_seguimiento
IS
    procedure insertSolicitudSeguimiento(
            penviar_email       IN VARCHAR2, 
            pcomentarios        IN VARCHAR2,
            pcve_solicitud      IN VARCHAR2           
        ) 
        IS  
            pclave_solicitud_seguimiento NUMBER;                     
        BEGIN                      
            SELECT seq_solicitud_seguimiento.NEXTVAL INTO pclave_solicitud_seguimiento FROM dual;            
          
            INSERT INTO solicitud_seguimiento(cve_seguimiento, enviar_email, comentarios,cve_solicitud)
            VALUES(pclave_solicitud_seguimiento, penviar_email, pcomentarios, trim(pcve_solicitud));
    END;
    
    procedure obtenerComentarios(
      pcve_solicitud IN VARCHAR, resultado out sys_refcursor
        )
    IS
    sqltemp VARCHAR(4000);
    BEGIN
        sqltemp:= ' SELECT ss.cve_seguimiento, ss.enviar_email, ss.comentarios, ss.cve_solicitud, TO_CHAR(ss.fecha_registro,''dd/mm/rrrr'') fecha_registro
          FROM solicitud_seguimiento ss WHERE ss.cve_solicitud = ''' || pcve_solicitud || '''
          ORDER BY ss.fecha_registro desc ';
        
        OPEN resultado FOR sqltemp;
    END;
    
    PROCEDURE  eliminarSolicitudSeguimiento(
               pcve_solicitud              IN VARCHAR2
             , pcve_solicitud_seguimiento  IN VARCHAR2 
        )
        IS  
        BEGIN                                                        
                DELETE FROM solicitud_seguimiento WHERE cve_solicitud = pcve_solicitud
                AND cve_seguimiento = pcve_solicitud_seguimiento ;
         
     END eliminarSolicitudSeguimiento;
     
END;
/


-- End of DDL Script for Package PEMEX.PKG_SOLICITUD_SEGUIMIENTO

